home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / domacnost a kancelar / scribus / scribus-1.3.3.7-win32-install.exe / tcl / tix8.1 / pref / WmDefault.csc < prev    next >
Encoding:
Text File  |  2001-12-08  |  14.5 KB  |  317 lines
  1. # -*-mode: tcl; fill-column: 75; tab-width: 8; coding: iso-latin-1-unix -*-
  2. #
  3. #    $Id: WmDefault.csc,v 1.1.2.4 2001/12/09 02:52:40 idiscovery Exp $
  4. #
  5. #
  6.  
  7. proc tixPref:SetScheme-Color:WmDefault {args} {
  8.     global tixOption
  9.  
  10.     package require wm_default
  11.     if {![info exists ::wm_default::wm]} {
  12.     wm_default::setup
  13.     wm_default::addoptions
  14.     }
  15.  
  16.     set tixOption(bg)           $::wm_default::background
  17.     set tixOption(fg)           $::wm_default::foreground
  18.  
  19.     # was "#808080"
  20.     set tixOption(dark1_bg)     $::wm_default::disabledbackground
  21.  
  22.     set tixOption(inactive_bg)  $::wm_default::disabledbackground
  23.     set tixOption(inactive_fg)  black; # unused
  24.  
  25.     # light1 was used for listbox widgets and trough colors
  26.     set tixOption(light1_bg)    $::wm_default::scrollbars
  27.     set tixOption(light1_fg)    white; #unused
  28.  
  29.     # text is now used for listbox widgets
  30.     set tixOption(list_bg)       $::wm_default::textbackground
  31.  
  32.     set tixOption(active_bg)    $::wm_default::activebackground
  33.     set tixOption(active_fg)    $::wm_default::activeforeground
  34.  
  35.     set tixOption(disabled_fg)  $::wm_default::disabledforeground
  36.     # new
  37.     set tixOption(disabled_bg)  $::wm_default::disabledtextbackground
  38.  
  39.     set tixOption(textbackground)    $::wm_default::textbackground
  40.     set tixOption(input1_fg)    $::wm_default::textforeground
  41.  
  42.     set tixOption(select_fg)    $::wm_default::selectforeground
  43.     set tixOption(select_bg)    $::wm_default::selectbackground
  44.     
  45.     set tixOption(selector)    $::wm_default::selectcolor
  46.  
  47.     set pri $tixOption(prioLevel)
  48.  
  49.     # Try to give the subwidget (hlist) the highlightThickness 
  50.     foreach pref {*TixDirTree *TixDirList *TixTree \
  51.         *TixScrolledListBox  \
  52.         *TixScrolledTList  *TixScrolledText} {
  53.     option add $pref.highlightThickness 0 $pri
  54.     }
  55.  
  56.  
  57.     # necessary:
  58.     option add *TixBalloon*background             white $pri
  59.     option add *TixBalloon*foreground             black $pri
  60.     option add *TixBalloon.background             black $pri
  61.  
  62.     # necessary: but should be restricted
  63.     # was -   option add *Label.anchor                 w $pri
  64.     option add *TixBalloon*Label.anchor         w $pri
  65.     option add *TixComboBox*Label.anchor         w $pri
  66.     option add *TixFileEntry*Label.anchor         w $pri
  67.     option add *TixLabelEntry*Label.anchor         w $pri
  68.     option add *TixOptionMenu*Label.anchor         w $pri
  69.  
  70.     option add *TixComboBox*background $tixOption(background) $pri
  71.     option add *TixFileEntry*Entry.borderWidth        0 $pri
  72.     option add *TixFileEntry.frame.background        $tixOption(textbackground) $pri
  73.  
  74.     option add *TixFileEntry*Entry.highlightBackground $::wm_default::highlightbackground $pri
  75.  
  76.     option add *TixOptionMenu*menubutton.relief raised $pri
  77.     option add *TixOptionMenu*menubutton.borderWidth $::wm_default::borderwidth $pri
  78.     option add *TixResizeHandle*background $tixOption(disabledbackground) $pri
  79.  
  80.     option add *handleActiveBg         $::wm_default::selectbackground $pri
  81.  
  82.  
  83.     # These may already have been covered by wm_default
  84.  
  85.     option add *TixControl*entry.insertBackground    $tixOption(textforeground) $pri
  86.  
  87.     option add *TixDirTree*hlist.activeBackground    $tixOption(light1_bg) $pri
  88.     option add *TixDirTree*hlist.disabledBackground    $tixOption(disabled_bg) $pri
  89.     option add *TixDirTree*f1.borderWidth        $::wm_default::borderwidth $pri
  90.     option add *TixDirTree*f1.relief            sunken $pri
  91.  
  92.     option add *TixDirList*hlist.activeBackground    $tixOption(light1_bg) $pri
  93.     option add *TixDirList*hlist.disabledBackground    $tixOption(disabled_bg) $pri
  94.     option add *TixDirList*f1.borderWidth        $::wm_default::borderwidth $pri
  95.     option add *TixDirList*f1.relief            sunken $pri
  96.  
  97.     option add *TixScrolledHList*hlist.activeBackground    $tixOption(light1_bg) $pri
  98.     option add *TixScrolledHList*hlist.disabledBackground    $tixOption(disabled_bg) $pri
  99.     option add *TixScrolledHList*f1.borderWidth        $::wm_default::borderwidth $pri
  100.     option add *TixScrolledHList*f1.relief            sunken $pri
  101.  
  102.     option add *TixTree*hlist.background        $tixOption(textbackground) $pri
  103.     option add *TixTree*hlist.activeBackground    $tixOption(light1_bg) $pri
  104.     option add *TixTree*hlist.disabledBackground    $tixOption(disabled_bg) $pri
  105.     option add *TixTree*f1.borderWidth        $::wm_default::borderwidth $pri
  106.     option add *TixTree*f1.relief            sunken $pri
  107.  
  108.     option add *TixFileEntry.background         $tixOption(background) $pri
  109.  
  110.     option add *TixHList.activeBackground        $tixOption(light1_bg) $pri
  111.     option add *TixHList.disabledBackground        $tixOption(disabled_bg) $pri
  112.  
  113.     option add *TixLabelEntry*entry.background        $tixOption(textbackground) $pri
  114.     option add *TixLabelEntry*entry.foreground        $tixOption(textforeground) $pri
  115.     option add *TixLabelEntry*entry.insertBackground    $tixOption(textforeground) $pri
  116.  
  117.     option add *TixMultiView*Listbox.borderWidth        0 $pri
  118.     option add *TixMultiView*Listbox.highlightThickness    0 $pri
  119.     option add *TixMultiView*Scrollbar.relief        sunken $pri
  120.     option add *TixMultiView*Scrollbar.width        15 $pri
  121.     option add *TixMultiView*f1.borderWidth        2 $pri
  122.     option add *TixMultiView*f1.relief            sunken $pri
  123.     option add *TixMultiView*f1.highlightThickness        2 $pri
  124.  
  125.     option add *TixNoteBook.Background            $tixOption(background) $pri
  126.     option add *TixNoteBook.nbframe.Background        $tixOption(background) $pri
  127.     option add *TixNoteBook.nbframe.backPageColor        $tixOption(background) $pri
  128.     option add *TixNoteBook.nbframe.inactiveBackground    $tixOption(disabledbackground) $pri
  129.     option add *TixPanedWindow.handleActiveBg         $tixOption(active_bg) $pri
  130. #    option add *TixPanedWindow.seperatorBg            $tixOption(disabledbackground) $pri
  131. #    option add *TixPanedWindow.handleBg               $tixOption(disabledbackground) $pri
  132.  
  133.     option add *TixPopupMenu*menubutton.background     $tixOption(dark1_bg) $pri
  134.  
  135.     option add *TixScrolledTList*tlist.background        $tixOption(textbackground) $pri
  136.  
  137.     option add *TixScrolledListBox*listbox.background        $tixOption(textbackground) $pri
  138.  
  139.     option add *TixScrolledWindow.frame.background        $tixOption(list_bg) $pri
  140.  
  141.     option add *TixTree*hlist.highlightBackground        $tixOption(background) $pri
  142.     option add *TixTree*hlist.background            $tixOption(textbackground) $pri
  143.     option add *TixTree*hlist.borderWidth            $::wm_default::borderwidth $pri
  144.  
  145.     option add *TixComboBox*Entry.highlightBackground        $tixOption(background) $pri
  146.     option add *TixComboBox*Entry.background            $tixOption(textbackground) $pri
  147.     option add *TixComboBox*Entry.foreground            $tixOption(textforeground) $pri
  148.     option add *TixComboBox*Entry.insertBackground        $tixOption(textforeground) $pri
  149. }
  150.  
  151. proc tixPref:SetScheme-Mono:Gray {} {
  152.     global tixOption
  153.  
  154.     package require wm_default
  155.     if {![info exists ::wm_default::wm]} {
  156.     wm_default::setup
  157.     wm_default::addoptions
  158.     }
  159.  
  160.     set tixOption(background)           lightgray
  161.     set tixOption(foreground)           black
  162.  
  163.     set tixOption(dark1_bg)     gray70
  164.  
  165.     set tixOption(inactive_bg)  lightgray
  166.     set tixOption(inactive_fg)  black
  167.  
  168.     set tixOption(light1_bg)    gray90
  169.     set tixOption(light1_fg)    white
  170.  
  171.     set tixOption(active_bg)    gray90
  172.     set tixOption(active_fg)    $tixOption(foreground)
  173.     set tixOption(disabled_fg)  gray55
  174.  
  175.     set tixOption(textbackground)    $tixOption(light1_bg)
  176.  
  177.     set tixOption(select_fg)    white
  178.     set tixOption(select_bg)    black
  179.  
  180.     set tixOption(selector)    black
  181.  
  182.     set pri $tixOption(prioLevel)
  183.  
  184.     # Override what you want with optional arguments to wm_default::adoptions
  185.  
  186.     # necessary:
  187.     option add *TixBalloon*background             white $pri
  188.     option add *TixBalloon*foreground             black $pri
  189.     option add *TixBalloon.background             black $pri
  190.  
  191.     # necessary: but should be restricted
  192.     # was -   option add *Label.anchor                 w $pri
  193.     option add *TixBalloon*Label.anchor         w $pri
  194.     option add *TixComboBox*Label.anchor         w $pri
  195.     option add *TixFileEntry*Label.anchor         w $pri
  196.     option add *TixLabelEntry*Label.anchor         w $pri
  197.  
  198. #    option add *TixDirTree*hlist.highlightBackground    $tixOption(background) $pri
  199. #    option add *TixDirTree*hlist.background        $tixOption(light1_bg) $pri
  200. #    option add *TixDirTree*hlist.activeBackground    $tixOption(light1_bg) $pri
  201. #    option add *TixDirTree*hlist.disabledBackground    $tixOption(disabled_bg) $pri
  202. #    option add *TixDirTree*f1.borderWidth        $::wm_default::borderwidth $pri
  203.     option add *TixDirTree*f1.relief            sunken $pri
  204. #    option add *TixDirList*hlist.highlightBackground    $tixOption(background) $pri
  205. #    option add *TixDirList*hlist.background        $tixOption(light1_bg) $pri
  206. #    option add *TixDirList*hlist.activeBackground    $tixOption(light1_bg) $pri
  207. #    option add *TixDirList*hlist.disabledBackground    $tixOption(disabled_bg) $pri
  208. #    option add *TixDirList*f1.borderWidth        $::wm_default::borderwidth $pri
  209.     option add *TixDirList*f1.relief            sunken $pri
  210. #    option add *TixScrolledHList*hlist.highlightBackground    $tixOption(background) $pri
  211. #    option add *TixScrolledHList*hlist.background        $tixOption(light1_bg) $pri
  212. #    option add *TixScrolledHList*hlist.activeBackground    $tixOption(light1_bg) $pri
  213. #    option add *TixScrolledHList*hlist.disabledBackground    $tixOption(disabled_bg) $pri
  214. #    option add *TixScrolledHList*f1.borderWidth        $::wm_default::borderwidth $pri
  215.     option add *TixScrolledHList*f1.relief            sunken $pri
  216. #    option add *TixTree*hlist.highlightBackground    $tixOption(background) $pri
  217. #    option add *TixTree*hlist.background        $tixOption(light1_bg) $pri
  218. #    option add *TixTree*hlist.activeBackground    $tixOption(light1_bg) $pri
  219. #    option add *TixTree*hlist.disabledBackground    $tixOption(disabled_bg) $pri
  220. #    option add *TixTree*f1.borderWidth        $::wm_default::borderwidth $pri
  221.     option add *TixTree*f1.relief            sunken $pri
  222. #    option add *TixHList.background            $tixOption(light1_bg) $pri
  223. #    option add *TixHList.activeBackground        $tixOption(light1_bg) $pri
  224. #    option add *TixHList.disabledBackground        $tixOption(light1_bg) $pri
  225. #    option add *TixMultiView*Listbox.borderWidth        0 $pri
  226. #    option add *TixMultiView*Listbox.highlightThickness    0 $pri
  227.     option add *TixMultiView*Scrollbar.relief        sunken $pri
  228. #    option add *TixMultiView*f1.borderWidth        2 $pri
  229.     option add *TixMultiView*f1.relief            sunken $pri
  230. #    option add *TixMultiView*f1.highlightThickness        2 $pri
  231. #    option add *TixMDIMenuBar*menubar.relief        raised $pri
  232. #    option add *TixMDIMenuBar*menubar.borderWidth        2 $pri
  233. #    option add *TixMDIMenuBar*Menubutton.padY         2 $pri
  234. #    option add *TixNoteBook.Background            $tixOption(background) $pri
  235. #    option add *TixNoteBook.nbframe.Background        $tixOption(background) $pri
  236. #    option add *TixNoteBook.nbframe.backPageColor        $tixOption(background) $pri
  237. #    option add *TixNoteBook.nbframe.inactiveBackground    $tixOption(inactive_bg) $pri
  238. #    option add *TixPanedWindow.handleActiveBg         $tixOption(active_bg) $pri
  239. #    option add *TixPanedWindow.seperatorBg            $tixOption(disabledbackground) $pri
  240. #    option add *TixPanedWindow.handleBg               $tixOption(disabledbackground) $pri
  241. #    option add *TixPopupMenu*menubutton.background     $tixOption(dark1_bg) $pri
  242. #    option add *TixScrolledHList*hlist.highlightBackground    $tixOption(background) $pri
  243. #    option add *TixScrolledHList*hlist.background        $tixOption(light1_bg) $pri
  244. #    option add *TixScrolledTList*tlist.highlightBackground    $tixOption(background) $pri
  245. #    option add *TixScrolledTList*tlist.background        $tixOption(light1_bg) $pri
  246. #    option add *TixScrolledListBox*listbox.highlightBackground    $tixOption(background) $pri
  247. #    option add *TixScrolledWindow.frame.background        $tixOption(light1_bg) $pri
  248. #    option add *TixTree*hlist.highlightBackground    $tixOption(background) $pri
  249. #    option add *TixTree*hlist.background        $tixOption(light1_bg) $pri
  250. #    option add *TixTree*hlist.borderWidth        $::wm_default::borderwidth $pri
  251.  
  252.     # These were missing
  253.  
  254. #    option add *TixMenu*Menu.selectColor $NIMLook(foreground) $pri
  255.  
  256. #    option add *TixMDIMenuBar*Menubutton.padY 2 $pri
  257. #    option add *TixMDIMenuBar*menubar.borderWidth 2 $pri
  258. #    option add *TixMDIMenuBar*menubar.relief raised $pri
  259.  
  260. #    option add *TixMultiView*Listbox.borderWidth 0 $pri
  261. #    option add *TixMultiView*Listbox.highlightThickness 0 $pri
  262. #    option add *TixMultiView*Scrollbar.relief sunken $pri
  263. #    option add *TixMultiView*f1.borderWidth 2 $pri
  264. #    option add *TixMultiView*f1.highlightThickness 2 $pri
  265.     option add *TixMultiView*f1.relief sunken $pri
  266.  
  267. }
  268.  
  269. # Leave the standard widgets alone
  270. if {0} {
  271.     option add *Background        $tixOption(background) $pri
  272.     option add *background        $tixOption(background) $pri
  273.     option add *Foreground        $tixOption(foreground) $pri
  274.     option add *foreground        $tixOption(foreground) $pri
  275.     option add *activeBackground    $tixOption(active_bg) $pri
  276.     option add *activeForeground    $tixOption(active_fg) $pri
  277.     option add *HighlightBackground    $tixOption(background) $pri
  278.  
  279.     option add *selectBackground    $tixOption(select_bg) $pri
  280.     option add *selectForeground    $tixOption(select_fg) $pri
  281.     option add *selectBorderWidth        0 $pri
  282.  
  283.     option add *Menu.selectColor    $tixOption(foreground) $pri
  284.     option add *TixMenu.selectColor    $tixOption(foreground) $pri
  285.     option add *Menubutton.padY        5 $pri
  286.  
  287.     option add *Button.borderWidth        2 $pri
  288.     option add *Button.anchor            c $pri
  289.  
  290.     option add *Checkbutton.selectColor        $tixOption(selector) $pri
  291.     option add *Radiobutton.selectColor        $tixOption(selector) $pri
  292.     option add *Entry.relief            sunken $pri
  293.     option add *Entry.highlightBackground    $tixOption(background) $pri
  294.     option add *Entry.background        $tixOption(textbackground) $pri
  295.     option add *Entry.foreground        $tixOption(textforeground) $pri
  296.     option add *Entry.insertBackground        $tixOption(textforeground) $pri
  297.     option add *Label.anchor            w $pri
  298.     option add *Label.borderWidth        0 $pri
  299.  
  300.     option add *Listbox.background        $tixOption(textbackground) $pri
  301.     option add *Listbox.relief            sunken $pri
  302.  
  303.     option add *Scale.foreground        $tixOption(foreground) $pri
  304.     option add *Scale.activeForeground        $tixOption(background) $pri
  305.     option add *Scale.background        $tixOption(background) $pri
  306.     option add *Scale.sliderForeground        $tixOption(background) $pri
  307.     option add *Scale.sliderBackground        $tixOption(light1_bg) $pri
  308.  
  309.     option add *Scrollbar.relief        sunken $pri
  310.     option add *Scrollbar.borderWidth        $::wm_default::borderwidth $pri
  311.     option add *Scrollbar.width            15 $pri
  312.  
  313.     option add *Text.background            $tixOption(textbackground) $pri
  314.     option add *Text.relief            sunken $pri
  315.  
  316. }
  317.